home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / N-New Submissions / (n)n2.d64 / flash (.txt) < prev    next >
Commodore BASIC  |  2007-02-24  |  4KB  |  162 lines
  1. 10 REM *** SUBLIMINAL FLASH! ****
  2. 20 REM ** RICK ANDING-ATLANTA ***
  3. 25 REM *MAY BE COPIED OR ALTERED,
  4. 30 REM *BUT NOT SOLD FOR PROFIT
  5. 40 GOSUB 9000
  6. 50 POKE 53280,6:POKE 53281,6:POKE 646,3
  7. 60 DATA "S","U","B","L","I","M","I","N","A","L"," ","F","L","A","S","H"
  8. 65 DATA"   DOG   ","  HOUSE  ","   BABY  ","HAIRSPRAY"
  9. 70 DATA"  PENCIL ","  TRUCK  ","COMPUTER "," PICTURE "
  10. 75 DATA"TELEPHONE","  LIGHT  ","   CAT   ","  WATCH  "
  11. 80 DATA"   BOOK  ","  PAPER  "," LISTEN "," MOTHER  "
  12. 85 DATA"   TOY   ","  CIGAR  "," BATTERY "," NAPKIN  "
  13. 90 DATA"  SHIRT  ","   BLUE  ","  ZEBRA  ","   WALK  "
  14. 95 DATA"  SLEEP  ","   MOON  ","  ROAD   ","  SMILE  ","XXX"
  15. 98 READ W$
  16. 100 PRINT"[147]":FOR X=1 TO 1000:NEXT
  17. 105 PRINT:PRINT
  18. 110 PRINT TAB(10)"SUBLIMINAL FLASH"
  19. 115 PRINT
  20. 120 PRINT"THIS PROGRAM IS AN INDIVIDUAL TEST TO
  21. 125 [153]"SEE HOW RAPIDLY A WORD CAN BE FLASHED
  22. 130 PRINT"ON THE SCREEN, THEN OFF AGAIN, AND
  23. 135 [153]"STILL BE READ AND RECOGNIZED BY THE
  24. 140 PRINT"INDIVIDUAL BEING TESTED.
  25. 150 [153]
  26. 160 [153]"THE FLASHED WORDS CAN BE DISPLAYED
  27. 165 PRINT"FOR DIFFERENT TIME INTERVALS, SELECTED
  28. 170 [153]"BY TYPING IN ONE OF THE NUMBERS 1
  29. 175 PRINT"THROUGH 9, WITH 1 BEING THE SHORTEST"
  30. 180 PRINT"DISPLAY DURATION, AND 9 BEING THE
  31. 185 [153]"THE LONGEST.
  32. 190 PRINT:PRINT"YOU WILL BE ABLE TO SEE EITHER A NEW
  33. 192 [153]"WORD OR REDISPLAY THE LAST WORD AFTER
  34. 193 PRINT"EACH TRY, AND HAVE THE CHANCE TO VARY
  35. 194 [153]"THE DISPLAY TIME INTERVAL EACH TIME.
  36. 195 PRINT:PRINT"WHEN YOU'RE READY, PRESS THE SPACE BAR.
  37. 196 [161] A$
  38. 197 [139] A$[178]"" [137] 196
  39. 198 [139] A$[179][177][199](32)[137] 196
  40. 200 [143]**** BUILD DISPLAY SCREEN***
  41. 205 [129] X[178]1 [164] 10:[130]
  42. 210 [153]"LOAD":[129] X[178]1 [164] 1000:[130]
  43. 220 [153]:[153]:[153]
  44. 225 [153] [163]11)" ANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND
  45. 230 PRINT TAB(11)"[170][205][175][175][175][175][175][175][175][175][175][175][175][175][175][206][180]
  46. 240 [153] [163]11)"+ SGN           + SGN
  47. 250 PRINT TAB(11)"[170] [180]           [170] [180]
  48. 260 [153] [163]11)"+ SGN           + SGN
  49. 270 PRINT TAB(11)"[170][206][183][183][183][183][183][183][183][183][183][183][183][183][183][205][180]
  50. 275 [153] [163]11)" USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
  51. 280 PRINT
  52. 290 PRINT"        A- DISPLAY LAST WORD
  53. 300 [153]"        B- NEW WORD
  54. 310 PRINT"        C- QUIT
  55. 320 [153]:[153] [163]6)"ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND"
  56. 330 [153] [163]6)"SGN1..2..3..4..5..6..7..8..9+"
  57. 340 [153] [163]6)"SGN                         +"
  58. 350 [153] [163]6)"SGNFASTER TIME   SLOWER TIME+"
  59. 360 [153] [163]6)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  60. 370 [133]" WHICH WORD?  A, B, OR C";J$
  61. 380 [139] J$[178]"A" [137] 400
  62. 390 [139] J$[178]"C" [137] 8999
  63. 395 [135] W$
  64. 400 [153]"ON                             "
  65. 405 [129] X[178]1 [164] 500:[130]
  66. 408 [139] W$[178]"XXX" [137] 800
  67. 410 [133]"ONHOW FAST?   1 THROUGH 9";S
  68. 420 [145] S [141] 900,910,920,930,940,950,960,970,980
  69. 430 [129] C[178]3 [164] 1 [169][171]1
  70. 440 [153]""
  71. 450 [153] [163]255)"   STOP";C;"OPEN"
  72. 460 [129] X[178]1 [164] 300:[130] X
  73. 470 [130] C
  74. 480 [153]""
  75. 490 [153] [163]255)W$
  76. 500 [129] X[178]1 [164] D:[130] X
  77. 510 [153] [163]15)"ON         "
  78. 515 [129] X[178]1 [164] 1000:[130] X
  79. 520 [153]""
  80. 530 [153]:[153]"                           "
  81. 540 [153]"ONON"
  82. 550 [137] 370
  83. 800 [153]"ON            ALL WORDS USED!"
  84. 899 [128]
  85. 900 D[178]3:[142]
  86. 910 D[178]10:[142]
  87. 920 D[178]17:[142]
  88. 930 D[178]24:[142]
  89. 940 D[178]32:[142]
  90. 950 D[178]40:[142]
  91. 960 D[178]48:[142]
  92. 970 D[178]56:[142]
  93. 980 D[178]64:[142]
  94. 8999 [128]
  95. 9000 [151] 53280,7:[151] 53281,7:[153]"LOAD"
  96. 9002 [129] X[178]1 [164] 1000:[130]:[151] 646,6
  97. 9003 [143]*                 LINE RIGHT *
  98. 9005 [129] X[178]1 [164] 39
  99. 9010 [153]"SIN";
  100. 9015 [129] Y[178]1 [164] 10:[130] Y
  101. 9020 [130]
  102. 9028 [143]*                  LINE DOWN *
  103. 9030 [129] X[178]1 [164] 22
  104. 9040 [153] [163]40)"CMDCMDSIN"
  105. 9050 [129] Y[178]1 [164] 10:[130] Y
  106. 9060 [130] X
  107. 9068 [143]*                  LINE LEFT *
  108. 9070 [129] X[178]1 [164] 39
  109. 9080 [153]"CMDCMDSIN";
  110. 9090 [129] Y[178]1 [164] 10:[130] Y
  111. 9095 [130] X
  112. 9096 [153]"CMDSINCMD";
  113. 9098 [143]*                    LINE UP *
  114. 9100 [129] X[178]1 [164] 21
  115. 9110 [153] "ONSINON"
  116. 9120 [129] Y[178]1 [164] 10: [130] Y
  117. 9130 [130] X
  118. 9140 [129] D [178]1 [164] 350:[130]
  119. 9160 [153] [163]204)"SIN";
  120. 9170 [129] X[178]1 [164] 28
  121. 9175 [153] "SIN";
  122. 9180 [129] Y[178]1 [164] 10:[130] Y
  123. 9190 [130] X
  124. 9195 [153]"SIN"
  125. 9200 [153] [163]33)"SIN"
  126. 9210 [153] [163]33)"SIN"
  127. 9220 [153] [163]33)"SIN"
  128. 9230 [153] [163]33)"SIN";
  129. 9240 [129] X[178]1 [164] 30
  130. 9250 [153]"CMDSINCMD";
  131. 9255 [129] Y[178]1 [164] 10: [130] Y
  132. 9260 [130] X
  133. 9270 [129] X[178]1 [164] 3
  134. 9280 [153] "ONSINCMD";
  135. 9290 [129] Y[178]1 [164] 10:[130]
  136. 9300 [130] X
  137. 9305 [129] X[178]1 [164] 350:[130]
  138. 9310 [153] [163]46)" ANDING'S NOODLE PRESENTS"
  139. 9315 [129] X[178]1 [164] 1000:[130]
  140. 9320 [153] [163]252)" "
  141. 9330 [153] [163]11)"*CMD";
  142. 9335 [129] J[178]1 [164] 16
  143. 9340 [129] X[178]1 [164] 10
  144. 9350 [153]" *CMD";
  145. 9360 [129] Y[178]1 [164] 5:[130] Y
  146. 9370 [130] X
  147. 9375 [153]"CMD* CMD";
  148. 9380 [129] X[178]1 [164] 9
  149. 9390 [153]"CMDCMD* CMD";
  150. 9400 [129] Y[178]1 [164] 5:[130] Y
  151. 9410 [130] X
  152. 9415 [135] A$
  153. 9416 [153]"CMDON";A$;:[153]"";
  154. 9420 [130] J
  155. 9425 [129] Y[178]1 [164] 200:[130]
  156. 9430 [153] [163]58)"*":[129] Y[178]1 [164] 150:[130]
  157. 9440 [153] [163]18)"*":[129] Y[178]1 [164] 150:[130]
  158. 9450 [153] [163]18)"*":[129] Y[178]1 [164] 150:[130]
  159. 9460 [153] [163]18)"*":[129] Y[178]1 [164] 150:[130]
  160. 9470 [153] [163]18)"*":[129] Y[178]1 [164] 2000:[130]
  161. 9480 [142]
  162.